﻿Public Class xtf_ABMunidaddetalle
    Public obj_unidaddetalle As cls_unidaddetalle_ = Nothing
    Private col_ControlesValidar As List(Of Control)

    Public Sub New()
        InitializeComponent()
        Me.Text = "Unidad Detalle - Nuevo"
        obj_unidaddetalle = New cls_unidaddetalle_
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
    End Sub

    Public Sub Modificar(ByRef unidaddetalle As cls_unidaddetalle_)
        If IsNothing(obj_unidaddetalle) Then
            obj_unidaddetalle = New cls_unidaddetalle_
        End If
        obj_unidaddetalle = unidaddetalle

        Me.Text = "Unidad Detalle - " & obj_unidaddetalle.ToString
        'txt_ID.Text = obj_localidad.idlocalidad

        txt_nombre.Text = obj_unidaddetalle.nombre
        txt_simbolo.Text = obj_unidaddetalle.simbolo
        txt_relacion1.Text = obj_unidaddetalle.relacion1
        txt_relacion2.Text = obj_unidaddetalle.relacion2

    End Sub


    Public Function ComprobarDatos() As Boolean
        If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
            ErrManagerShow("000004", Me)
            Return False
        End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_unidaddetalle.nombre = txt_nombre.Text
            obj_unidaddetalle.simbolo = txt_simbolo.Text
            obj_unidaddetalle.relacion1 = txt_relacion1.Text
            obj_unidaddetalle.relacion2 = txt_relacion2.Text

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If

    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class